home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / comm / net / ACS_Notify.lha / QuitACS.Rexx < prev    next >
OS/2 REXX Batch file  |  1997-12-06  |  827b  |  44 lines
  1. /*
  2. $VER: Quit ACS [Arexx script] V0.1ß (6-12-97) © Copex - aWo 
  3.  
  4. Bug Reports ect to -: copex@online.u-net.com
  5. Uppdates/Bugfixes :- http:www.online.u-net.com/updates/
  6.  
  7. The setting below should be the same as set in Notify Rexx Script.
  8. */
  9.  
  10. user.0 = 'tibb' 
  11. user.1 = 'hparting'
  12. user.2 = 'copex'
  13. NumberOfUsers = 3
  14. CaseSensative = 'no'
  15.  
  16. /* ------------------------------------------------------------------------*/
  17.  
  18. if show(P,'AMICOMSYS') then do
  19.     
  20.     ADDRESS AMICOMSYS
  21.  
  22.     'GET stem info. CLIENTLIST'
  23.  
  24.     if 'info.connected' = 1 then do 
  25.           'DISCONNET'
  26.     end
  27.  
  28.     'QUIT'
  29.  
  30. end
  31.  
  32. delclip = getclip('NoAmicomUsers')
  33. if delclip ~= 0 then call setclip('NoAmicomUsers','')
  34.  
  35. do i = 0 to NumberOfUsers -1
  36.  
  37.     if CaseSensative = 'no' then user.i = upper(user.i)
  38.  
  39.     delclip = getclip(user.i)
  40.     if delclip ~= 0 then call setclip(user.i,'')
  41. end
  42.  
  43. exit
  44.